﻿Imports Aras.IOM
Imports System.Xml


Partial Class GetDocuments
    Inherits System.Web.UI.Page

    Dim Dossier_id As String = ""



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


    End Sub


    Public Function GetSessionState() As String

        Dim Login As String = Session("LOGON_NAME")
        Dim Project As String = Session("Project")
        Dim ConnecStat As String = Session("ConnecState")

        If (Login = "" And Project = "") Then
            Return "disconnected"
        Else
            Return "user: " + Login + " / project: " + Project + " / state: " + ConnecStat
        End If



    End Function
End Class
